Namespace BAL.Concesion
	Public Class Convocatoria
		Public Function Grabar(ByVal _Convocatoria As BEL.Concesion.Convocatoria) As System.Boolean
			Dim _dal As New DAL.Concesion.Convocatoria
			If _Convocatoria.EsNuevo Then
				Return _dal.Insertar(_Convocatoria)
			Else
				Return _dal.Modificar(_Convocatoria)
			End If
        End Function
        Public Function GrabarPostores(ByVal _Convocatoria As BEL.Concesion.Convocatoria) As System.Boolean
            Dim _dal As New DAL.Concesion.Convocatoria
            Return _dal.GrabarPostores(_Convocatoria)
        End Function
		Public Function Eliminar(ByVal intId As System.Int32) As System.Boolean
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.ModificaEstado(intId, "AN")
		End Function

		Public Function Adjudicar(ByVal intConvocatoria As System.Int32, ByVal intProveedor As System.Int32) As System.Boolean
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.Adjudicar(intConvocatoria, intProveedor)
		End Function
		Public Function EnProceso(ByVal intId As System.Int32) As System.Boolean
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.ModificaEstado(intId, "EP")
		End Function
		Public Function Publicar(ByVal intId As System.Int32) As System.Boolean
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.ModificaEstado(intId, "PU")
		End Function
		Public Function DeshacerPublicar(ByVal intId As System.Int32) As System.Boolean
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.ModificaEstado(intId, "PE")
		End Function
		Public Function Listar(ByVal _Parametros As Object()) As DataTable
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.Listar(_Parametros)
        End Function
        Public Function ListarInterno(ByVal _Parametros As Object()) As DataTable
            Dim _dal As New DAL.Concesion.Convocatoria
            Return _dal.ListarInterno(_Parametros)
        End Function
        Public Function ListarExterno(ByVal _Parametros As Object()) As DataTable
            Dim _dal As New DAL.Concesion.Convocatoria
            Return _dal.ListarExterno(_Parametros)
        End Function
		Public Function Cargar(ByVal intId As System.Int32) As BEL.Concesion.Convocatoria
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.Cargar(intId)
        End Function
        Public Function CargarPostores(ByVal intId As System.Int32) As DataTable
            Dim _dal As New DAL.Concesion.Convocatoria
            Return _dal.CargarPostores(intId)
        End Function
		Public Function Imprimir(ByVal _Parametros As Object()) As DataTable
			Dim _dal As New DAL.Concesion.Convocatoria
			Return _dal.Imprimir(_Parametros)
		End Function
	End Class
End Namespace